10 PRINT"[147]LOADING MACHINE LANGUAGE..."
20 DIM A$(30):POKE53280,0:POKE53281,0:PRINT"[147]"
30 FORI=1TO30:READA$(I):NEXT
40 POKE820,45:POKE821,200:REM --- SCROLL SPEED ---
50 POKE250,3:REM --- TEXT COLOR ---
60 REM --- A$(20)="" MEANS LAST STRING ---
70 A$(1)=MID$(A$(1),1):SYS49152
80 END
90 REM --- TEXT TO SCROLL ---
100 DATA " "," "," ","THIS IS MOVIE SCROLL..."," "
110 DATA "THE FINE-SCROLL UTILITY WHICH YOU HAVE","BEEN WAITING FOR!!!"
120 DATA " ","SCROLL YOUR HELP SCREENS..."," ","OR YOUR TITLE SCREENS..."
130 DATA " ","OR USE IT TO TITLE YOUR HOME VIDEOS!"
140 DATA " "," "," ","*** ALL WITH MOVIE SCROLL!!![146] ***"," "," "
150 DATA "IT'S SAFE, NON-TOXIC, AND HARMLESS"
160 DATA "AS WELL AS SIMPLE AND CONVENIENT."
170 DATA "ALL YOU DO IS SET UP A STRING ARRAY!"
180 DATA "NOW, UNLESS YOU WANT TO SIT HERE ALL"
190 DATA "DAY LONG WATCHING THIS DEMO,HIT ANY KEY"
200 DATA "TO RETURN CONTROL TO BASIC...."," "," "," "
210 DATA "AH WELL, HERE WE GO AGAIN...",""